home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
t_os
/
ashula
/
ashsmp
/
test.a
< prev
next >
Wrap
Text File
|
1991-10-18
|
5KB
|
227 lines
set PMGf 0 ".\sample.pgf"
set PMGf 1 ".\sample2.pgf"
begin
screen 0 3
screen 1 3
string view 0 16 384 623 431 0 16 16 16 smooth
color 0 1 1
string color 0 15
color 0 0 12
box 0 14 382 625 433
string clear 0
string 0 " ASHULA特殊効果説明デモ"
wait 300
cont string 0 "\n これからASHULAの特殊効果の説明を行います。\n 途中で終わる時はマウスの右ボタンををしばらく押していてください。"
wait 180
mouse on
point set 1 0 0
layer set 1
color 1 1 1
string clear 0
effect disable
cont string 0 "\neffect disable\n \n効果を使用しないでファイルを読みながら表示します。"
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 disable
effect very slow wipe down
cont string 0 "\neffect very slow wipe down\n\n上から下に画面を描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast wipe up
effect very slow wipe up
cont string 0 "\neffect very slow wipe up\n \n下から上に画面を描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast wipe down
effect very slow wipe right
cont string 0 "\neffect very slow wipe right\n \n左から右に画面を描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast wipe left
effect very slow wipe left
cont string 0 "\neffect very slow wipe left\n \n右から左に画面を描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast wipe right
effect very fast scroll down
cont string 0 "\neffect very fast scroll down\n \n下に向かって画像がスクロールしてきます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very slow wipe up
effect very fast scroll up
cont string 0 "\neffect very fast scroll up\n \n上に向かって画像がスクロールしてきます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very slow wipe down
effect very fast scroll right
cont string 0 "\neffect very fast scroll right\n \n右に向かって画像がスクロールしてきます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very slow wipe left
effect very fast scroll left
cont string 0 "\neffect very fast scroll left\n \n左に向かって画像がスクロールしてきます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very slow wipe right
effect very slow horizontal close
cont string 0 "\neffect very slow horizontal close\n \n上下端から中心に向かって描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast horizontal open
effect very slow horizontal open
cont string 0 "\neffect very slow horizontal open\n \n中心から上下端に向かって描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast horizontal close
effect very slow vertical close
cont string 0 "\neffect very slow vertical close\n \n左右端から中心に向かって描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast vertical open
effect very slow vertical open
cont string 0 "\neffect very slow vertical open\n \n中心から左右端に向かって描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast vertical close
effect very slow dissolve
cont string 0 "\neffect very slow dissolve\n \n画面が染み出してくるように描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
button get end 1
wipe 1 very fast dissolve
effect nomal line dissolve
cont string 0 "\neffect nomal line dissolve (もしくは effect nomal blind)\n \nブラインドカーテンが切り替わるように描き変えます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
button get end 1
wait 180
effect very fast shift down
cont string 0 "\neffect very fast shift down\n \n描き換える領域を下に向かってスクロールさせていきます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
button get end 1
wait 180
effect very fast shift up
cont string 0 "\neffect very fast shift up\n \n描き換える領域を上に向かってスクロールさせていきます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
button get end 1
wait 180
effect very fast shift right
cont string 0 "\neffect very fast shift right\n \n描き換える領域を右に向かってスクロールさせていきます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
button get end 1
wait 180
effect very fast shift left
cont string 0 "\neffect very fast shift left\n \n描き換える領域を左に向かってスクロールさせていきます。"
point set 1 0 0
background 0
wait 120
point set 1 160 120
background 1
wait 180
wipe 1 very slow wipe right
cont string 0 "\n\n\n\n以上で説明を終わります。マウスをクリックしてください。"
button wait pause 0
end